home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / dbase / easyvide.lha / EasyVideo / REXX / EV_Start.rexx < prev    next >
OS/2 REXX Batch file  |  1995-04-30  |  772b  |  52 lines
  1. /* RexxStart für EasyVideo
  2.    (c) Jörg Trahm
  3. */
  4.  
  5. AutoSichern=15             /* Zeit in Minuten für Automatisches Sichern*/
  6.  
  7. call addlib('rexxsupport.library',0,-30)
  8. call addlib('rexxreqtools.library',0,-30)
  9. call delay(50)
  10. parse arg PortName
  11. address(PortName)
  12. options results
  13. signal on syntax
  14. signal on error
  15.  
  16.  
  17. ZaehlerAutoSichern = 0
  18.  
  19. /* nur für EasyVideo-Start */
  20.  
  21. EV_Setze "RexxAnzeige=Nein"
  22.  
  23.  
  24. /* Sekundentakt Endlosschleife */
  25.  
  26. Start:
  27. do while show('p', PortName)
  28.  
  29.  select                     
  30.  /* automatisches Speichern */
  31.   When ZaehlerAutoSichern >= AutoSichern then do
  32.    EV_Sichern
  33.    ZaehlerAutoSichern = 0
  34.    end
  35.   OtherWise
  36.    call delay(3000)
  37.    ZaehlerAutoSichern = ZaehlerAutoSichern + 1
  38.  
  39.  end
  40.  
  41. end
  42. exit
  43.  
  44. syntax:
  45.  NOP
  46. signal Start
  47.  
  48. error:
  49.  NOP
  50. signal Start
  51.  
  52.